home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 3.5 KB | 185 lines | [TEXT/MPS ] |
- ;
- ; File: QuickdrawText.a
- ;
- ; Contains: Quickdraw Text Interfaces.
- ;
- ; Version: Technology: System 7.5
- ; Release: Universal Interfaces 3.0d3 on Copland DR1
- ;
- ; Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, send the file and version
- ; information (from above) and the problem description to:
- ;
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
- IF &TYPE('__QUICKDRAWTEXT__') = 'UNDEFINED' THEN
- __QUICKDRAWTEXT__ SET 1
-
- IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
- include 'Types.a'
- ENDIF
- IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
- include 'MixedMode.a'
- ENDIF
- IF &TYPE('__SCRIPTLAYOUT__') = 'UNDEFINED' THEN
- include 'ScriptLayout.a'
- ENDIF
- IF FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE THEN
- FontInfo RECORD 0
- ascent ds.w 1 ; offset: $0 (0)
- descent ds.w 1 ; offset: $2 (2)
- widMax ds.w 1 ; offset: $4 (4)
- leading ds.w 1 ; offset: $6 (6)
- sizeof EQU * ; size: $8 (8)
- ENDR
- ;
- ; pascal void TextFont(short font)
- ;
- IF ¬ GENERATINGCFM THEN
- _TextFont: OPWORD $A887
- ELSE
- IMPORT_CFM_FUNCTION TextFont
- ENDIF
-
- ;
- ; pascal void TextFace(StyleParameter face)
- ;
- IF ¬ GENERATINGCFM THEN
- _TextFace: OPWORD $A888
- ELSE
- IMPORT_CFM_FUNCTION TextFace
- ENDIF
-
- ;
- ; pascal void TextMode(short mode)
- ;
- IF ¬ GENERATINGCFM THEN
- _TextMode: OPWORD $A889
- ELSE
- IMPORT_CFM_FUNCTION TextMode
- ENDIF
-
- ;
- ; pascal void TextSize(short size)
- ;
- IF ¬ GENERATINGCFM THEN
- _TextSize: OPWORD $A88A
- ELSE
- IMPORT_CFM_FUNCTION TextSize
- ENDIF
-
- ;
- ; pascal void SpaceExtra(Fixed extra)
- ;
- IF ¬ GENERATINGCFM THEN
- _SpaceExtra: OPWORD $A88E
- ELSE
- IMPORT_CFM_FUNCTION SpaceExtra
- ENDIF
-
- ;
- ; pascal void DrawChar(CharParameter ch)
- ;
- IF ¬ GENERATINGCFM THEN
- _DrawChar: OPWORD $A883
- ELSE
- IMPORT_CFM_FUNCTION DrawChar
- ENDIF
-
- ;
- ; pascal void DrawString(ConstStr255Param s)
- ;
- IF ¬ GENERATINGCFM THEN
- _DrawString: OPWORD $A884
- ELSE
- IMPORT_CFM_FUNCTION DrawString
- ENDIF
-
- ;
- ; pascal void DrawText(const void *textBuf, short firstByte, short byteCount)
- ;
- IF ¬ GENERATINGCFM THEN
- _DrawText: OPWORD $A885
- ELSE
- IMPORT_CFM_FUNCTION DrawText
- ENDIF
-
- ;
- ; pascal short CharWidth(CharParameter ch)
- ;
- IF ¬ GENERATINGCFM THEN
- _CharWidth: OPWORD $A88D
- ELSE
- IMPORT_CFM_FUNCTION CharWidth
- ENDIF
-
- ;
- ; pascal short StringWidth(ConstStr255Param s)
- ;
- IF ¬ GENERATINGCFM THEN
- _StringWidth: OPWORD $A88C
- ELSE
- IMPORT_CFM_FUNCTION StringWidth
- ENDIF
-
- ;
- ; pascal short TextWidth(const void *textBuf, short firstByte, short byteCount)
- ;
- IF ¬ GENERATINGCFM THEN
- _TextWidth: OPWORD $A886
- ELSE
- IMPORT_CFM_FUNCTION TextWidth
- ENDIF
-
- ;
- ; pascal void MeasureText(short count, const void *textAddr, void *charLocs)
- ;
- IF ¬ GENERATINGCFM THEN
- _MeasureText: OPWORD $A837
- ELSE
- IMPORT_CFM_FUNCTION MeasureText
- ENDIF
-
- ;
- ; pascal void GetFontInfo(FontInfo *info)
- ;
- IF ¬ GENERATINGCFM THEN
- _GetFontInfo: OPWORD $A88B
- ELSE
- IMPORT_CFM_FUNCTION GetFontInfo
- ENDIF
-
- ;
- ; pascal void CharExtra(Fixed extra)
- ;
- IF ¬ GENERATINGCFM THEN
- _CharExtra: OPWORD $AA23
- ELSE
- IMPORT_CFM_FUNCTION CharExtra
- ENDIF
-
- ;
- ; pascal void StdText(short count, const void *textAddr, Point numer, Point denom)
- ;
- IF ¬ GENERATINGCFM THEN
- _StdText: OPWORD $A882
- ELSE
- IMPORT_CFM_FUNCTION StdText
- ENDIF
-
- ;
- ; pascal short StdTxMeas(short byteCount, const void *textAddr, Point *numer, Point *denom, FontInfo *info)
- ;
- IF ¬ GENERATINGCFM THEN
- _StdTxMeas: OPWORD $A8ED
- ELSE
- IMPORT_CFM_FUNCTION StdTxMeas
- ENDIF
-
- ENDIF
- ENDIF ; __QUICKDRAWTEXT__
-
-